home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / patch / blizzrep.lha / BlizzRepair2 / BlizzRepair.s < prev    next >
Text File  |  1995-09-30  |  734b  |  47 lines
  1.  
  2.     incdir    'include:'
  3.     include    'libs/exec.i'
  4.     include    'exec/exec.i'
  5.  
  6.     movem.l    d1-d7/a0-a6,-(a7)
  7.     move.l    4,a6
  8.     move.l    #8,d0
  9.     move.l    #MEMF_FAST,d1
  10.     jsr    AllocMem(a6)
  11.     tst.l    d0
  12.     beq.s    reset
  13.     move.l    d0,a1
  14.     move.l    #8,d0
  15.     jsr    FreeMem(a6)
  16. end    movem.l    (a7)+,d1-d7/a0-a6
  17.     moveq    #0,d0
  18.     rts
  19.  
  20. reset    move.l    #32,d0
  21.     move.l    #MEMF_PUBLIC+MEMF_CLEAR,d1
  22.     jsr    AllocMem(a6)
  23.     tst.l    d0
  24.     beq.s    .exit
  25.     move.l    d0,a0
  26.     move.l    d0,a1
  27.     move.w    #20,d7
  28.     lea    nameascii,a2
  29. .loop    move.b    (a2)+,(a0)+
  30.     dbra    d7,.loop
  31.     move.l    #$400000,d0
  32.     move.l    #MEMF_PUBLIC+MEMF_FAST+MEMF_24BITDMA,d1
  33.     move.l    #10,d2
  34.     lea    $200000,a0
  35.     jsr    AddMemList(a6)
  36. .exit    bra.s   end
  37. ;.exit    lea    reset2(pc),a5
  38. ;    jsr    -30(a6)
  39.  
  40. ;reset2    lea    2.w,a0
  41. ;    reset
  42. ;    jmp    (a0)
  43.  
  44.  
  45. nameascii
  46.     dc.b    'personal added memory',0
  47.